home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / PAL.14615.CURTIN.JAN.83.B.bas < prev    next >
BASIC Source File  |  2003-06-12  |  553b  |  15 lines
  1. 10  CLEAR 
  2. 20  HOME 
  3. 30  PRINT "CAN ANYBODY TELL ME WHAT LOCATION TO    PEEK TO TELL ME HOW MANY LINES MY PRINT-ER HAS PRINTED?
  4. 40  PRINT : PRINT "SEND YOUR REPLY TO....
  5. 50 N$ = "BOB CURTIN"
  6. 60 A$ = "387 BLACK WALNUT DRIVE"
  7. 70 C$ = "ROCHESTER, NY 14615"
  8. 80  PRINT : PRINT  TAB( 20 - LEN(N$)/2);N$
  9. 90  PRINT  TAB( 20 - LEN(A$)/2);A$
  10. 100  PRINT  TAB( 20 - LEN(C$)/2);C$
  11. 110  PRINT : PRINT : PRINT "THANKS...."
  12. 120 M$ = "<ANY KEY FOR PAL MENU>"
  13. 130  VTAB 23: HTAB (20 - LEN(M$)/2): PRINT M$
  14. 140  GET KB$: PRINT KB$: HOME 
  15. 150  PRINT  CHR$(4);"RUN PAL.MENU"